home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / lsdvizint.lha / 1.s < prev    next >
Encoding:
Text File  |  1980-12-27  |  3.1 KB  |  152 lines
  1.     SECTION    MENU_MK_IX_,CODE_C
  2.     OPT    O+ C-
  3.     incdir  df0:,df2:
  4.     move.w  #19,d1
  5. loop:   bsr colourplace
  6.         bsr colourcycle
  7.         bsr colourplace2
  8.         bsr colourcycle2
  9.     dbf d1,loop
  10.     move.l  #logo,store
  11.     lea bitmap,a0
  12.     move.w #4,d0
  13. planes: move.w store,2(a0)
  14.      move.w store+2,6(a0)
  15.      add.w  #8,a0
  16.      add.l  #4640,store
  17.      dbf d0,planes
  18.      lea logo+23200,a0
  19.      lea cols+2,a1
  20.      move.w #31,d0
  21. place:     move.w (a0)+,(a1)
  22.      add.w  #4,a1
  23.      dbf d0,place
  24.     MOVE.L    4,A6
  25.     LEA.L    GFxNAME,A1
  26.     CLR.L    D0
  27.     JSR    -552(A6)
  28.     MOVE.L    D0,GFXLOC
  29.     MOVE.L    GFXLOC,A6
  30.     MOVE.L    50(A6),OLDCOP
  31.     MOVE.L    #COPPER,50(A6)
  32.     MOVE.L    #$FFFF,D0
  33. COPDEL:    DBF    D0,COPDEL
  34.     MOVE.W    #%1000011111100000,$DFF096
  35.     MOVE.W    #$C000,$DFF09A
  36.     MOVE.L    #$FFFFFFFF,$DFF044
  37.     MOVE.W    #00,$DFF042
  38.     MOVE.W    #%0000100111110000,$DFF040
  39.     MOVE.W    #$4000,$DFF09A
  40. START:    CMP.B    #$ff,$DFF006
  41.     BNE.S    START
  42.     bsr     colourplace
  43.     bsr     colourcycle
  44.     bsr     colourplace2
  45.     bsr     colourcycle2
  46.     btst    #6,$bfe001
  47.     beq    reset
  48.     btst    #7,$bfe001
  49.     beq    reset
  50.     btst    #10,$dff016
  51.     beq    reset
  52.     BRA.s    START
  53.  
  54. RESET:    MOVE.W    #$C000,$DFF09A
  55.     MOVE.W    #$0F,$DFF096
  56.     MOVE.L    GFXLOC,A6
  57.     MOVE.L    OLDCOP,50(A6)
  58.     MOVE.L    4,A6
  59.     MOVE.L    GFXLOC,A1
  60.     JSR    -414(A6)
  61.     CLR.L    D0
  62. EX:    RTS
  63. COPPER:    DC.W    $0102,$0000,$0104,$0000
  64.     DC.W    $0108,$0000,$010A,$0000
  65.     DC.W    $0092,$0038,$0094,$00D0
  66.     DC.W    $008E,$2C61,$0090,$2AC1
  67.     DC.W    $0120,$0000,$0122,$0000
  68.     dc.w    $0180,$0000,$0182,$0fff
  69. bitmap  dc.w    $00e0,$0000,$00e2,$0000
  70.     dc.w    $00e4,$0000,$00e6,$0000
  71.     dc.w    $00e8,$0000,$00ea,$0000
  72.     dc.w    $00ec,$0000,$00ee,$0000
  73.     dc.w    $00f0,$0000,$00f2,$0000
  74. a set $180
  75. cols:    rept 32
  76.     dc.w a,0
  77. a set a+2 
  78.       endr
  79.     dc.w    $4001,$fffe
  80.     
  81. a set $4009
  82. colours:    rept 20
  83.     dc.w a,$fffe,$0180,$0
  84. a set a+4
  85.     endr
  86. colours1:dc.w a,$fffe,$0180,$0
  87.      dc.w a+4,$fffe,$0180,$0
  88.     dc.w    $4301,$fffe,$0100,$5200
  89.          dc.w $b001,$fffe,$0100,$0000         
  90. a set $b009
  91. colours2:    rept 20
  92.     dc.w a,$fffe,$0180,$0
  93. a set a+4
  94.     endr
  95. colours3:dc.w a,$fffe,$0180,$0
  96.      dc.w a+4,$fffe,$0180,$0
  97.                               
  98.     DC.W    $FFFF,$FFFE
  99. GFXNAME:DC.B    "graphics.library",0
  100. GFXLOC:    DC.L    0
  101. OLDCOP:    DC.L    0
  102. store:  dc.l    0
  103.  
  104.     even
  105.     
  106. colourplace: lea colourtable,a0
  107.          add.w colourptr,a0
  108.          cmp.w #$8888,(a0)
  109.          bne colour1
  110.          clr.W colourptr
  111.          bra.s colourplace
  112. colour1:     move.w (a0),colours1+6
  113.             add.w #2,colourptr
  114.             rts
  115.             
  116.             
  117. colourcycle: lea colours+6,a0
  118.          move.w #19,d0
  119. colourcycle1:move.w 8(a0),(a0)
  120.          add.w #8,a0
  121.          dbf d0,colourcycle1
  122.          rts
  123.          
  124. colourptr:   dc.w $0
  125. colourplace2: lea colourtable,a0
  126.          add.w colourptr2,a0
  127.          cmp.w #$8888,(a0)
  128.          bne colour12
  129.          clr.W colourptr2
  130.          bra.s colourplace2
  131. colour12:     move.w (a0),colours2+6
  132.             add.w #2,colourptr2
  133.             rts
  134.             
  135.             
  136. colourcycle2: lea colours3-10,a0
  137.          move.w #18,d0
  138. colourcycle12:move.w (a0),8(a0)
  139.          sub.w #8,a0
  140.          dbf d0,colourcycle12
  141.          rts
  142.          
  143. colourptr2:   dc.w $0
  144.  
  145. colourtable: 
  146.         
  147.           dc.w $100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00,$d00,$e00,$f00
  148.          dc.w $e00,$d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  149.  
  150.     dc.w $8888
  151. logo:    incbin logo.raw                                                        
  152.